home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 July / Software of the Month - Ultimate Collection Shareware 263.iso / mac / Business / Y2K Assistant / action.Dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1999-03-02  |  5.8 KB  |  128 lines
  1. on spec1098
  2.   if word 3 of the long date = "1," then
  3.     go(11)
  4.   else
  5.     if word 3 of the long date = "2," then
  6.       go(11)
  7.     else
  8.       if word 3 of the long date = "3," then
  9.         go(12)
  10.       else
  11.         if word 3 of the long date = "4," then
  12.           go(12)
  13.         else
  14.           if word 3 of the long date = "5," then
  15.             go(12)
  16.           else
  17.             if word 3 of the long date = "6," then
  18.               go(12)
  19.             else
  20.               if word 3 of the long date = "7," then
  21.                 go(12)
  22.               else
  23.                 if word 3 of the long date = "8," then
  24.                   go(12)
  25.                 else
  26.                   if word 3 of the long date = "9," then
  27.                     go(12)
  28.                   else
  29.                     if word 3 of the long date = "10," then
  30.                       go(13)
  31.                     else
  32.                       if word 3 of the long date = "11," then
  33.                         go(13)
  34.                       else
  35.                         if word 3 of the long date = "12," then
  36.                           go(13)
  37.                         else
  38.                           if word 3 of the long date = "13," then
  39.                             go(13)
  40.                           else
  41.                             if word 3 of the long date = "14," then
  42.                               go(13)
  43.                             else
  44.                               if word 3 of the long date = "15," then
  45.                                 go(13)
  46.                               else
  47.                                 if word 3 of the long date = "16," then
  48.                                   go(13)
  49.                                 else
  50.                                   if word 3 of the long date = "17," then
  51.                                     go(14)
  52.                                   else
  53.                                     if word 3 of the long date = "18," then
  54.                                       go(14)
  55.                                     else
  56.                                       if word 3 of the long date = "19," then
  57.                                         go(14)
  58.                                       else
  59.                                         if word 3 of the long date = "20," then
  60.                                           go(14)
  61.                                         else
  62.                                           if word 3 of the long date = "21," then
  63.                                             go(14)
  64.                                           else
  65.                                             if word 3 of the long date = "22," then
  66.                                               go(14)
  67.                                             else
  68.                                               if word 3 of the long date = "23," then
  69.                                                 go(14)
  70.                                               else
  71.                                                 if word 3 of the long date = "24," then
  72.                                                   go(15)
  73.                                                 else
  74.                                                   if word 3 of the long date = "25," then
  75.                                                     go(15)
  76.                                                   else
  77.                                                     if word 3 of the long date = "26," then
  78.                                                       go(15)
  79.                                                     else
  80.                                                       if word 3 of the long date = "27," then
  81.                                                         go(15)
  82.                                                       else
  83.                                                         if word 3 of the long date = "28," then
  84.                                                           go(15)
  85.                                                         else
  86.                                                           if word 3 of the long date = "29," then
  87.                                                             go(15)
  88.                                                           else
  89.                                                             if word 3 of the long date = "30," then
  90.                                                               go(15)
  91.                                                             else
  92.                                                               if word 3 of the long date = "31," then
  93.                                                                 go(16)
  94.                                                               else
  95.                                                                 go(77)
  96.                                                               end if
  97.                                                             end if
  98.                                                           end if
  99.                                                         end if
  100.                                                       end if
  101.                                                     end if
  102.                                                   end if
  103.                                                 end if
  104.                                               end if
  105.                                             end if
  106.                                           end if
  107.                                         end if
  108.                                       end if
  109.                                     end if
  110.                                   end if
  111.                                 end if
  112.                               end if
  113.                             end if
  114.                           end if
  115.                         end if
  116.                       end if
  117.                     end if
  118.                   end if
  119.                 end if
  120.               end if
  121.             end if
  122.           end if
  123.         end if
  124.       end if
  125.     end if
  126.   end if
  127. end
  128.